<!--#INCLUDE FILE="conn.asp"-->

<%
if Request("id")<>"" then
       call ShowImg1() 
end if
if Request("TSImg")="0k" then
       call ShowImg2()
end if
Call conn_Nothing()

sub ShowImg1()
       dim strSql,rs
       strSql="Select userimage From ts_userinfo where id = " & Request("id")
       Set rs=conn.Execute(strSql)
             Response.ContentType = "image/*"                  
             Response.BinaryWrite rs("userimage") 
        rs.Close
        set rs=nothing
end sub

sub ShowImg2() 
        dim strSql,rs
        strSql="Select TSLTImg From option1"
        Set rs=conn.Execute(strSql)
             Response.ContentType = "image/*"                  
             Response.BinaryWrite rs("TSLTImg") 
        rs.Close
       set rs=nothing
end sub

%>
